home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / comm / mail / YAT.lha / YAT / Install < prev    next >
Text File  |  2000-09-11  |  3KB  |  136 lines
  1. .Key FILE/A
  2. .bra {
  3. .ket }
  4.  
  5. FailAt 21
  6. Echo "Install {FILE}..."
  7. CD >ENV:yatDIR{$$}
  8. SetEnv yatMSG{$$} "Install aborted"
  9. Assign >NIL: YAM: EXISTS
  10. If WARN
  11.  SetEnv yatPAT{$$} ""
  12. Else
  13.  SetEnv yatPAT{$$} "YAM:"
  14. EndIf
  15.  
  16. RequestFile >ENV:yatDST{$$} "$yatPAT{$$}" FILE ".taglines" TITLE "Append or Copy to..."
  17. If WARN
  18.  Skip EXIT
  19. EndIf
  20.  
  21. SetEnv yatOPT{$$} "2"
  22.  
  23. Lab DEST
  24. If EXISTS $yatDST{$$}
  25.  CD >NIL: $yatDST{$$}
  26.  If NOT WARN
  27.   CD "$yatDIR{$$}"
  28.   SetEnv yatTMP{$$} $yatDST{$$}
  29.   Echo >>ENV:yatTMP{$$} "{FILE}" NOLINE
  30.   SetEnv yatDST{$$} "*"$yatTMP{$$}*""
  31.   Skip DEST BACK
  32.  EndIf
  33. Else
  34.  Skip DOIT
  35. EndIf
  36.  
  37. SetEnv yatNAM{$$} $yatDST{$$}
  38. RequestChoice >ENV:yatOPT{$$} TITLE "Request" BODY "$yatNAM{$$} already exists" GADGETS "Append" "Overwrite" "Cancel"
  39. If WARN
  40.  Skip EXIT
  41. EndIf
  42. If "$yatOPT{$$}" EQ "0"
  43.  Skip EXIT
  44. EndIf
  45. RequestChoice >ENV:yatTMP{$$} TITLE "Request" BODY "Backup $yatNAM{$$}" GADGETS "Ok" "Skip" "Cancel"
  46. If WARN
  47.  Skip EXIT
  48. EndIf
  49. If "$yatTMP{$$}" EQ "0"
  50.  Skip EXIT
  51. EndIf
  52. If "$yatTMP{$$}" EQ "2"
  53.  Skip DOIT
  54. EndIf
  55.  
  56. SetEnv yatBAK{$$} $yatDST{$$}
  57. Echo >>ENV:yatBAK{$$} ".bak" NOLINE
  58. If NOT EXISTS "$yatBAK{$$}"
  59.  Skip BKUP
  60. EndIf
  61.  
  62. SetEnv yatEXT{$$} "1"
  63.  
  64. Lab SUFF
  65. SetEnv yatTMP{$$} "$yatEXT{$$}"
  66. Eval >ENV:yatEXT{$$} $yatTMP{$$} + 1
  67. SetEnv yatTMP{$$} "$yatBAK{$$}"
  68. Echo >>ENV:yatTMP{$$} "$yatEXT{$$}" NOLINE
  69. If EXISTS "$yatTMP{$$}"
  70.  Skip SUFF BACK
  71. EndIf
  72. SetEnv yatBAK{$$} "$yatTMP{$$}"
  73.  
  74. Lab BKUP
  75. Component >ENV:yatPAT{$$} "$yatBAK{$$}" PATH
  76. Component >ENV:yatNAM{$$} "$yatBAK{$$}" NAME
  77. RequestFile >ENV:yatBAK{$$} "$yatPAT{$$}" FILE "$yatNAM{$$}" TITLE "Backup name..."
  78. If WARN
  79.  Skip EXIT
  80. EndIf
  81.  
  82. Lab NAME
  83. If EXISTS $yatBAK{$$}
  84.  CD >NIL: $yatBAK{$$}
  85.  If NOT WARN
  86.   CD "$yatDIR{$$}"
  87.   SetEnv yatTMP{$$} $yatBAK{$$}
  88.   Echo >>ENV:yatTMP{$$} "`Component $yatDST{$$} NAME`" NOLINE
  89.   SetEnv yatBAK{$$} "*"$yatTMP{$$}*""
  90.   Skip NAME BACK
  91.  EndIf
  92.  RequestChoice >ENV:yatTMP{$$} TITLE "Request" BODY "`Echo $yatBAK{$$} NOLINE` already exists" GADGETS "Overwrite" "Cancel"
  93.  If WARN
  94.   Skip EXIT
  95.  EndIf
  96.  If "$yatTMP{$$}" EQ "0"
  97.   Skip EXIT
  98.  EndIf
  99. EndIf
  100. Copy $yatDST{$$} TO $yatBAK{$$} CLONE
  101. If WARN
  102.  Skip EXIT
  103. EndIf
  104. SetEnv yatTMP{$$} $yatDST{$$}
  105. Echo >>ENV:yatTMP{$$} " copied to " NOLINE
  106. Echo >>ENV:yatTMP{$$} $yatBAK{$$} NOLINE
  107. Echo "$yatTMP{$$}"
  108.  
  109. Lab DOIT
  110. SetEnv yatNAM{$$} $yatDST{$$}
  111. If "$yatOPT{$$}" EQ "1"
  112.  Echo >>"$yatNAM{$$}" "%%"
  113.  If WARN
  114.   Skip EXIT
  115.  EndIf
  116.  Type >>"$yatNAM{$$}" Taglines/{FILE}
  117.  If WARN
  118.   Skip EXIT
  119.  EndIf
  120.  SetEnv yatOPT{$$} "appended"
  121. Else
  122.  Copy Taglines/{FILE} TO "$yatNAM{$$}" CLONE
  123.  If WARN
  124.   Skip EXIT
  125.  EndIf
  126.  SetEnv yatOPT{$$} "copied"
  127. EndIf
  128. SetEnv yatMSG{$$} "{FILE} "
  129. Echo >>ENV:yatMSG{$$} "$yatOPT{$$} to " NOLINE
  130. Echo >>ENV:yatMSG{$$} $yatDST{$$} NOLINE
  131.  
  132. Lab EXIT
  133. Echo "$yatMSG{$$}"
  134. RequestChoice >NIL: TITLE "Request" BODY "$yatMSG{$$}" GADGETS "Bye"
  135. Delete >NIL: ENV:yat#?{$$}
  136.